home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / A-B / ButtonStax.cpt / Region Buttons / card_2130.txt < prev    next >
Text File  |  1989-02-26  |  850b  |  47 lines
  1. -- card: 2130 from stack: in
  2. -- bmap block id: 4314
  3. -- flags: 0000
  4. -- background id: 2722
  5. -- name: 
  6. ----- HyperTalk script -----
  7. On OpenCard
  8.   global handle
  9.   ButtonRgn "handle","NewRgn"
  10. end OpenCard
  11.  
  12. On MouseUp
  13.   global handle
  14.   ButtonRgn "handle","TestHit",mouseH(),mouseV(),TRUE
  15.   if the result is zero then
  16.     put "You did not hit a button"
  17.   else
  18.     put "You hit button"&&the result
  19.   end if
  20. end MouseUp
  21.  
  22. On CloseCard
  23.   global handle
  24.   ButtonRgn "handle","DisposeRgn"
  25. end CloseCard
  26.  
  27.  
  28.  
  29. -- part contents for background part 14
  30. ----- text -----
  31. A Demonstration
  32.  
  33. -- part contents for background part 15
  34. ----- text -----
  35. 13
  36.  
  37. -- part contents for background part 13
  38. ----- text -----
  39. Here are some buttons displayed in an attractive manner, numbers from 1 to 4. By clicking in any of them, you will get HyperCard to beep that number of times.
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.